VB中mshflexgrid中getfocus与cellleave事件的区别

VB 前端之家
前端之家收集整理的这篇文章主要介绍了VB中mshflexgrid中getfocus与cellleave事件的区别，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

只要点mshflexgrid控件getfocus事件就会被触发，而cellLeave事件只有改变单元格时才会被触发，而且cellLeave事件要比getfocus事件先执行，如果cellLeave事件中有msgBox或exit sub，那么getfocus就不会再执行。

另外，为了使mshflexgrid变成一个可编辑的控件，变相的处理方式是引入一个文本框，在getfocus事件中将该文本框填充到表格的单元格中，下面是我的一个程序的一个文本的源代码，贴出来供大家共享，这个文件里面虽然参杂了我的业务代码，但是如果仔细看是能够明白如何使mshflexgrid变成一个可编辑控件的

Public foutputStockBillId As String
Public buttonKey As String
Dim msg As String
Private Sub cancel_Click()
Unload Me
End Sub
Private Sub confirm_Click()
outputStockBillEntryMSHFlexGrid_leavecell
On Error GoTo err:
'输入校验
If fnumber.Text = "" Then
MsgBox "入库单编码不能为空！",vbOKOnly,"错误"
fnumber.SetFocus
Exit Sub
End If
If outputStockBillEntryMSHFlexGrid.Rows < 1 Then
MsgBox "请选择商品！","错误"
Exit Sub
End If
'客户信息不能为空
If Me.fcustomerId = "" Then
MsgBox "客户信息不能为空！","错误"
Exit Sub
End If
'检查编码是否重复
If isNumberExist(fnumber.Text) Then
MsgBox "出库单编码重复，请重新输入！","错误"
Exit Sub
End If
'检查数据输入是否正确
For i = 1 To outputStockBillEntryMSHFlexGrid.Rows - 1
If outputStockBillEntryMSHFlexGrid.TextMatrix(i,7) = "" Then
MsgBox outputStockBillEntryMSHFlexGrid.TextMatrix(i,5) + "重量不能为空，请输入！","提示"
Exit Sub
End If
If Not CheckInput.isPositiveRealNumber(outputStockBillEntryMSHFlexGrid.TextMatrix(i,7)) Then
MsgBox outputStockBillEntryMSHFlexGrid.TextMatrix(i,5) + "重量输入有误，请重新输入！","提示"
Exit Sub
End If
If outputStockBillEntryMSHFlexGrid.TextMatrix(i,8) = "" Then
MsgBox outputStockBillEntryMSHFlexGrid.TextMatrix(i,5) + "数量不能为空，请输入！",8)) Then
MsgBox outputStockBillEntryMSHFlexGrid.TextMatrix(i,5) + "数量输入有误，请重新输入！",9) = "" Then
MsgBox outputStockBillEntryMSHFlexGrid.TextMatrix(i,5) + "单价不能为空，请输入！",9)) Then
MsgBox outputStockBillEntryMSHFlexGrid.TextMatrix(i,5) + "单价输入有误，请重新输入！","提示"
Exit Sub
End If
Next i

'消退时数量不能大于原来的数据
For i = 1 To outputStockBillEntryMSHFlexGrid.Rows - 1
If Not isEnoughAmount(outputStockBillEntryMSHFlexGrid.TextMatrix(i,1),outputStockBillEntryMSHFlexGrid.TextMatrix(i,8)) Then
MsgBox "消退数量不能大于原来的出库单数量","错误"
Exit Sub
End If
Next i
'防止用户直接点确定按钮，强制调整重量
For i = 1 To outputStockBillEntryMSHFlexGrid.Rows - 1
outputStockBillEntryMSHFlexGrid.TextMatrix(i,7) = getBackWeight(outputStockBillEntryMSHFlexGrid.TextMatrix(i,CDbl(outputStockBillEntryMSHFlexGrid.TextMatrix(i,8)))
Next i
'按照先进后出修改入库单剩余数量，插入消退单，修改库存数量，修改出库单的重量时按照先进后出的原则
Dim conn As New ADODB.Connection
conn.connectionString = dataBaseConn.getExistConnectionString
conn.Open
conn.BeginTrans '开始事务
Dim today As Date
today = Now
foutputStockBillId = createGUID.createGUID
Dim foutputStockBillEntryId As String

'插入出库单记录商品
conn.Execute "insert into t_outputStockBill(foutputStockBillId,fnumber,foutputStockDatetime,fcustomerId,fisBackBill,fparentBillNumber) " _
+ " values('" + foutputStockBillId + "','" + fnumber.Text + "','" + CStr(today) + "','" + fcustomerId.Text + "','1','" + outputStockBillEntryMSHFlexGrid.TextMatrix(1,3) + "')"
'插入出库单分录,修改原出库单的退单数
For i = 1 To outputStockBillEntryMSHFlexGrid.Rows - 1
foutputStockBillEntryId = createGUID.createGUID
conn.Execute "insert into t_outputStockBillEntry(foutputStockBillEntryId,foutputStockBillId,fgoodId,fweight,famount,funitPrice,foutDate) " _
+ " values('" + foutputStockBillEntryId + "','" + foutputStockBillId + "','" + outputStockBillEntryMSHFlexGrid.TextMatrix(i,2) + "','" _
+ outputStockBillEntryMSHFlexGrid.TextMatrix(i,7) + "',8) + "',9) + "','" + CStr(today) + "')"
conn.Execute "update t_outputStockBillEntry set fbackAmount = (case when fbackAmount is null then " + outputStockBillEntryMSHFlexGrid.TextMatrix(i,8) + " else fbackAmount+" + outputStockBillEntryMSHFlexGrid.TextMatrix(i,8) + " end),fbackWeight=(case when fbackWeight is null then " + outputStockBillEntryMSHFlexGrid.TextMatrix(i,8) + " else fbackWeight+" + outputStockBillEntryMSHFlexGrid.TextMatrix(i,8) + " end) where foutputStockBillEntryId='" + outputStockBillEntryMSHFlexGrid.TextMatrix(i,1) + "'"
'修改入库单分录商品剩余数量，按先进后出原则将入库单中的商品的数量消除掉，注意要查找重量和出库单重量匹配的入库单修改
Dim sql As String
sql = "declare @famount decimal(18,2),@fbackAmount decimal(18,@finputStockBillEntryId varchar(200),@fId varchar(36),@k decimal(18,2) " _
+ "declare cur cursor for select t1.famount,t1.fbackAmount,t2.finputStockBillEntryId,t1.fId from t_outputFromInput t1 " _
+ "inner join t_inputStockBillEntry t2 on t1.finputStockBillEntryId=t2.finputStockBillEntryId Where t1.foutputStockBillEntryId='" + outputStockBillEntryMSHFlexGrid.TextMatrix(i,1) + "' and t1.famount > t1.fbackAmount " _
+ "order by t2.fentryDate desc " _
+ "open cur " _
+ "set @k = " + outputStockBillEntryMSHFlexGrid.TextMatrix(i,8) + " " _
+ "fetch next from cur into @famount,@fbackAmount,@finputStockBillEntryId,@fId " _
+ "while @@FETCH_STATUS=0 " _
+ "begin " _
+ " if @famount-@fbackAmount>=@k " _
+ " begin " _
+ " update t_inputStockBillEntry set fremainAmount=fremainAmount+@k where finputStockBillEntryId=@finputStockBillEntryId " _
+ " update t_outputFromInput set fbackAmount=fbackAmount+@k where fId=@fId " _
+ " break " _
+ " End " _
+ " Else " _
+ " begin " _
+ " update t_inputStockBillEntry set fremainAmount=@famount where finputStockBillEntryId=@finputStockBillEntryId " _
+ " update t_outputFromInput set fbackAmount=@famount where fId=@fId " _
+ " set @k=@k-(@famount-@fbackAmount) " _
+ " fetch next from cur into @famount,@fId " _
+ " End " _
+ "End " _
+ " close cur " _
+ "DEALLOCATE cur"
conn.Execute sql
'修改库存记录,原来的基础上减去重量和数量
conn.Execute "update t_stock set famount=famount+" + outputStockBillEntryMSHFlexGrid.TextMatrix(i,8) _
+ ",fweight=fweight+" + outputStockBillEntryMSHFlexGrid.TextMatrix(i,7) _
+ " where fgoodId='" + outputStockBillEntryMSHFlexGrid.TextMatrix(i,2) + "'"
Next i
conn.CommitTrans '结束事务

outputStockBillList.Form_Load
Unload Me
Exit Sub
err:
MsgBox err.Description
If conn.State = adStateOpen Then
conn.RollbackTrans
conn.Close
End If
Unload Me
End Sub
Private Function isExistGood(ByVal goodId As String) As Boolean
Dim conn1 As ADODB.Connection
Set conn1 = New ADODB.Connection
conn1.connectionString = dataBaseConn.getExistConnectionString
conn1.Open
Dim rs As ADODB.Recordset
Dim sql As String
Set rs = conn1.Execute(sql)
sql = "select fgoodId from t_stock where fgoodId ='" + goodId + "'"
If Not (rs.BOF And rs.EOF) Then
isExistGood = True
Else
isExistGood = False
End If
conn1.Close
End Function
Private Function isExistEnoughAmountGood(ByVal goodId As String,ByVal goodAmount As String) As Boolean
On Error GoTo err
Dim conn1 As ADODB.Connection
Set conn1 = New ADODB.Connection
conn1.connectionString = dataBaseConn.getExistConnectionString
conn1.Open
Dim rs As ADODB.Recordset
Dim sql As String
sql = "select fgoodId from t_stock where fgoodId ='" + goodId + "' and famount>=" + goodAmount
Set rs = conn1.Execute(sql)
If Not (rs.BOF And rs.EOF) Then
isExistEnoughAmountGood = True
Else
isExistEnoughAmountGood = False
End If
conn1.Close
Exit Function
err:
MsgBox err.Description,"错误"
End Function
Private Function isExistEnoughWeightGood(ByVal goodId As String,ByVal goodWeight As String) As Boolean
Dim conn1 As ADODB.Connection
Set conn1 = New ADODB.Connection
conn1.connectionString = dataBaseConn.getExistConnectionString
conn1.Open
Dim rs As ADODB.Recordset
Dim sql As String
Set rs = conn1.Execute(sql)
sql = "select fgoodId from t_stock where fgoodId ='" + goodId + "' and famount=" + goodWeight
If Not (rs.BOF And rs.EOF) Then
isExistEnoughWeightGood = True
Else
isExistEnoughWeightGood = False
End If
conn1.Close
End Function

Private Sub custName_Click()
custSelDlg.Top = Me.Top + 1000
custSelDlg.Left = Me.Left + 1000
custSelDlg.Show 1
End Sub

Private Sub Form_Load()
fnumber.Text = getOutputStockBillNextNumber
Dim conn As New ADODB.Connection
conn.connectionString = dataBaseConn.getExistConnectionString
conn.Open '打开连接
'获取出库单编码和客户信息（包括客户名称，客户ID）
Dim sql As String
sql = "select t1.fnumber,t1.fcustomerId,t2.fname from t_outputStockBill t1 inner join t_customer t2 on t1.fcustomerId=t2.fcustomerId "
Dim rs As ADODB.Recordset
Set rs = conn.Execute(sql)
If Not (rs.EOF And rs.BOF) Then
fcustomerId.Text = rs.Fields("fcustomerId")
custName.Text = rs.Fields("fname")
End If

Dim stitle As String
stitle = "< |<出库单分录ID |<商品ID |<出库单编码 |<出库时间 |<商品名称 |<商品规格 |<总重量 |<数量|<单价 "
outputStockBillEntryMSHFlexGrid.FormatString = stitle
outputStockBillEntryMSHFlexGrid.colWidth(0) = 300
outputStockBillEntryMSHFlexGrid.colWidth(1) = 0
outputStockBillEntryMSHFlexGrid.colWidth(2) = 0
outputStockBillEntryMSHFlexGrid.colWidth(3) = 0
outputStockBillEntryMSHFlexGrid.colWidth(4) = 0
Dim colWidth As Long
colWidth = outputStockBillEntryMSHFlexGrid.Width - outputStockBillEntryMSHFlexGrid.colWidth(0) - 100
outputStockBillEntryMSHFlexGrid.colWidth(5) = colWidth / 5
outputStockBillEntryMSHFlexGrid.colWidth(6) = colWidth / 5
outputStockBillEntryMSHFlexGrid.colWidth(7) = colWidth / 5
outputStockBillEntryMSHFlexGrid.colWidth(8) = colWidth / 5
outputStockBillEntryMSHFlexGrid.colWidth(9) = colWidth / 5

While outputStockBillEntryMSHFlexGrid.TextMatrix(1,2) = "" And outputStockBillEntryMSHFlexGrid.Rows > 2
outputStockBillEntryMSHFlexGrid.RemoveItem 1
Wend
If outputStockBillEntryMSHFlexGrid.Rows = 2 And outputStockBillEntryMSHFlexGrid.TextMatrix(1,2) = "" Then
outputStockBillEntryMSHFlexGrid.RowHeight(1) = 0
End If
outputStockBillEntryMSHFlexGrid.Refresh
Me.tb.BackColor = RGB(240,240,240)

sql = getQuerysql()
Set rs = conn.Execute(sql)
If Not (rs.BOF And rs.EOF) Then
rs.MoveFirst
Do While Not rs.EOF
If outputStockBillEntryMSHFlexGrid.Rows = 2 And outputStockBillEntryMSHFlexGrid.TextMatrix(1,2) = "" Then
outputStockBillEntryMSHFlexGrid.TextMatrix(1,1) = rs.Fields("foutputStockBillEntryId")
outputStockBillEntryMSHFlexGrid.TextMatrix(1,2) = rs.Fields("fgoodId")
outputStockBillEntryMSHFlexGrid.TextMatrix(1,3) = rs.Fields("fnumber")
outputStockBillEntryMSHFlexGrid.TextMatrix(1,4) = CStr(rs.Fields("foutputStockDatetime"))
outputStockBillEntryMSHFlexGrid.TextMatrix(1,5) = rs.Fields("fname")
outputStockBillEntryMSHFlexGrid.TextMatrix(1,6) = rs.Fields("fnorm")
outputStockBillEntryMSHFlexGrid.TextMatrix(1,7) = CStr(rs.Fields("fweight"))
outputStockBillEntryMSHFlexGrid.TextMatrix(1,8) = CStr(rs.Fields("famount"))
outputStockBillEntryMSHFlexGrid.TextMatrix(1,9) = CStr(rs.Fields("funitprice"))
Else
outputStockBillEntryMSHFlexGrid.AddItem "" + vbTab _
+ rs.Fields("foutputStockBillEntryId") + vbTab _
+ rs.Fields("fgoodId") + vbTab _
+ rs.Fields("fnumber") + vbTab _
+ CStr(rs.Fields("foutputStockDatetime")) + vbTab _
+ rs.Fields("fname") + vbTab _
+ rs.Fields("fnorm") + vbTab _
+ CStr(rs.Fields("fweight")) + vbTab _
+ CStr(rs.Fields("famount")) + vbTab _
+ CStr(rs.Fields("funitprice")) + vbTab
End If
outputStockBillEntryMSHFlexGrid.RowHeight(outputStockBillEntryMSHFlexGrid.Rows - 1) = 300
rs.MoveNext
Loop
End If
Set rs = Nothing
conn.Close
End Sub
Private Function isNumberExist(number As String) As Boolean
Dim conn As New ADODB.Connection
conn.connectionString = dataBaseConn.getExistConnectionString
conn.Open
sql = "select foutputStockBillId,fnumber from t_outputStockBill where fnumber='" + number + "'"
Dim rs As Recordset
Set rs = conn.Execute(sql)
If Not (rs.BOF And rs.EOF) Then
If buttonKey = "add" Then
isNumberExist = True
Else
If rs.Fields("foutputStockBillId") <> foutputStockBillId Then
isNumberExist = True
End If
End If
Else
isNumberExist = False
End If
Set rs = Nothing
conn.Close
End Function


Private Function getQuerysql() As String
't1.fnumber,t1.foutputStockDatetime,t3.fname,t3.fnorm,t2.fweight,t2.famount,t2.funitPrice
getQuerysql = "select t2.foutputStockBillEntryId,t3.fgoodId,t1.fnumber,convert(varchar(200),(case when t2.fbackweight is null then t2.fweight else t2.fweight-t2.fbackweight end)) as fweight,(t2.famount-t2.fbackAmount)) as famount,t2.funitPrice " _
+ " from t_outputStockBill t1 " _
+ " inner join t_outputStockBillEntry t2 on t1.foutputStockBillId=t2.foutputStockBillId " _
+ " inner join t_good t3 on t2.fgoodId=t3.fgoodId " _
+ " where t1.foutputStockBillId='" + foutputStockBillId + "' and (t2.fbackAmount<t2.famount or t2.fbackAmount is null) and (t1.FisBackBill<>'1' or t1.fisBackBill is null)"
End Function

Private Sub outputStockBillEntryMSHFlexGrid_GotFocus()
'如果单元格宽度不够，将焦点交给删除按钮
If outputStockBillEntryMSHFlexGrid.CellWidth < 5 Or outputStockBillEntryMSHFlexGrid.CellHeight < 5 Then
deleteGood.SetFocus
Exit Sub
End If
If outputStockBillEntryMSHFlexGrid.col <> 8 Then
deleteGood.SetFocus
Exit Sub
End If
tb.Left = outputStockBillEntryMSHFlexGrid.CellLeft + outputStockBillEntryMSHFlexGrid.Left - 10
tb.Top = outputStockBillEntryMSHFlexGrid.CellTop + outputStockBillEntryMSHFlexGrid.Top - 10
tb.Height = outputStockBillEntryMSHFlexGrid.CellHeight - 5

tb.Width = outputStockBillEntryMSHFlexGrid.CellWidth - 5
tb.Visible = True
tb.SetFocus
Me.tb = Me.outputStockBillEntryMSHFlexGrid.Text
Me.tb.Tag = faIndex(Me.outputStockBillEntryMSHFlexGrid.row,Me.outputStockBillEntryMSHFlexGrid.col)
Me.tb.SetFocus
Me.tb.SelStart = Len(Me.tb)
'控制只能输入数量
If outputStockBillEntryMSHFlexGrid.col <> 8 Then
tb.Locked = True
Else
tb.Locked = False

End If
'显示错误信息
If msg <> "" Then
MsgBox msg,"提示"
msg = ""
End If
End Sub

Private Sub deleteGood_Click()
'当删除到最后只剩下一行非固定行时，此行只能隐藏，不能删除，其它则可以直接删除掉
If outputStockBillEntryMSHFlexGrid.Rows = 2 Then
Dim i As Integer
For i = 1 To outputStockBillEntryMSHFlexGrid.Cols - 1
outputStockBillEntryMSHFlexGrid.TextMatrix(1,i) = ""
Next i
outputStockBillEntryMSHFlexGrid.RowHeight(1) = 0
ElseIf outputStockBillEntryMSHFlexGrid.Rows > 2 Then
outputStockBillEntryMSHFlexGrid.RemoveItem outputStockBillEntryMSHFlexGrid.RowSel
End If
End Sub
Private Sub outputStockBillEntryMSHFlexGrid_leavecell()
'如果行大于一，说明有数据，才执行下面的操作
'如果不是从第八列移开，也不执行一下操作
If outputStockBillEntryMSHFlexGrid.row > 0 And outputStockBillEntryMSHFlexGrid.col = 8 And tb.Text = "" Then
msg = "数量不能为空，请输入！"
End If
If outputStockBillEntryMSHFlexGrid.row > 0 And outputStockBillEntryMSHFlexGrid.col = 8 And Not CheckInput.isPositiveRealNumber(tb.Text) Then
msg = "数量输入有误，请重新输入！"
End If
If outputStockBillEntryMSHFlexGrid.row > 0 And outputStockBillEntryMSHFlexGrid.col = 8 And tb.Text <> "" And CheckInput.isPositiveRealNumber(tb.Text) Then
'如果文本框中内容为空，则退出
'如果从第八列，即数量列移开，那么将给第七列赋值，按照先进后出的原则，给第七列赋值为既定数量的商品的总的重量
'按照先进后去的原则取出商品，然后根据输入的数量，确定商品是否够量，如果不够量，提示客户，如果够量，则累计算出商品的总的重量
Dim conn1 As ADODB.Connection
Dim sql As String
Dim rs As ADODB.Recordset
Set conn1 = New ADODB.Connection
conn1.connectionString = dataBaseConn.getExistConnectionString
conn1.Open
'出库单分录中消退数量不能超过原来的数量
If Not isEnoughAmount(outputStockBillEntryMSHFlexGrid.TextMatrix(outputStockBillEntryMSHFlexGrid.row,CDbl(tb.Text)) Then
msg = "消退数量不能大于原来的出库单数量"
Else
'根据客户输入的数量来计算商品总的重量
outputStockBillEntryMSHFlexGrid.TextMatrix(outputStockBillEntryMSHFlexGrid.row,7) = getBackWeight(outputStockBillEntryMSHFlexGrid.TextMatrix(outputStockBillEntryMSHFlexGrid.row,CDbl(tb.Text))
End If
Set rs = Nothing
conn1.Close
End If
End Sub

Private Sub tb_KeyDown(KeyCode As Integer,Shift As Integer)
On Error Resume Next
Select Case KeyCode

Case 27 ' ESC
'Tb.Visible = False
' outputStockBillEntryMSHFlexGrid.SetFocus
Case 37 ' LEFT
'MoveToCell fgEditMoveleft
KeyCode = 0
If Me.outputStockBillEntryMSHFlexGrid.col = Me.outputStockBillEntryMSHFlexGrid.FixedCols Then Exit Sub
Me.outputStockBillEntryMSHFlexGrid.col = Me.outputStockBillEntryMSHFlexGrid.col - 1
Me.outputStockBillEntryMSHFlexGrid.SetFocus
Case 38 ' Up.
'MoveToCell fgEditMoveup
KeyCode = 0
If Me.outputStockBillEntryMSHFlexGrid.row = Me.outputStockBillEntryMSHFlexGrid.FixedRows Then Exit Sub
Me.outputStockBillEntryMSHFlexGrid.row = Me.outputStockBillEntryMSHFlexGrid.row - 1
Me.outputStockBillEntryMSHFlexGrid.SetFocus
Case 39,13 ' right.回车
' MoveToCell fgEditMoveright
KeyCode = 0
Me.outputStockBillEntryMSHFlexGrid.col = Me.outputStockBillEntryMSHFlexGrid.col + 1
Me.outputStockBillEntryMSHFlexGrid.SetFocus
Case 40 ' Down.
'MoveToCell fgEditMoveDown
KeyCode = 0
Me.outputStockBillEntryMSHFlexGrid.row = Me.outputStockBillEntryMSHFlexGrid.row + 1
Me.outputStockBillEntryMSHFlexGrid.SetFocus
' tb_LostFocus
End Select

End Sub

Private Sub tb_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 9,13,27,37,38,39,40
KeyAscii = 0
End Select
End Sub

Private Sub tb_LostFocus()
Me.tb.Visible = False
Me.outputStockBillEntryMSHFlexGrid.TextArray(tb.Tag) = tb
Me.tb = ""
'Me.Caption = "txt_lostfocus"
End Sub
Function faIndex(row As Integer,col As Integer) As Long
faIndex = row * outputStockBillEntryMSHFlexGrid.Cols + col
End Function
Private Sub outputStockBillEntryMSHFlexGrid_Scroll()
Dim dx As Long,dy As Long
' move tb with cell or hide if cell out of view
If tb.Visible Then
With outputStockBillEntryMSHFlexGrid
If .RowIsVisible(.row) And .ColIsVisible(.col) Then
dx = .Left + .CellLeft - 10
dy = .Top + .CellTop - 10
tb.Move dx,dy
Else
tb.Move -tb.Width,-tb.Height
End If
End With
End If
End Sub

Private Function isEnoughAmount(ByVal outputStockBillEntryId As String,ByVal amount As String) As Boolean
Dim conn As New ADODB.Connection
conn.connectionString = dataBaseConn.getExistConnectionString
conn.Open
Dim sql As String
sql = "select 1 from t_outputStockBillEntry where foutputStockBillEntryId='" + outputStockBillEntryId + "' and ((fbackAmount is null and famount>" + amount + ") or famount>=(fbackAmount+" + amount + "))"
Dim rs As ADODB.Recordset
Set rs = conn.Execute(sql)
If Not (rs.EOF And rs.BOF) Then
isEnoughAmount = True
Else
isEnoughAmount = False
End If
Set rs = Nothing
conn.Close
End Function
Private Function getOutputStockBillNextNumber() As String
Dim conn1 As New ADODB.Connection
conn1.connectionString = dataBaseConn.getExistConnectionString
conn1.Open
Dim sql As String
sql = "select fnumber from t_outputStockBill order by fnumber"
Dim rs As ADODB.Recordset
Set rs = conn1.Execute(sql)
getOutputStockBillNextNumber = CreateNumber.getStrNumber(rs,"O",4)
Set rs = Nothing
conn1.Close
End Function

Private Function getBackWeight(ByVal outputStockBillEntryId As String,ByVal amount As Double) As String Dim sql As String sql = "select t1.famount,t1.fId,t2.fweight from t_outputFromInput t1 " _ + "inner join t_inputStockBillEntry t2 on t1.finputStockBillEntryId=t2.finputStockBillEntryId " _ + "where t1.foutputStockBillEntryId='" + outputStockBillEntryId + "' and t1.famount > t1.fbackAmount " _ + "order by t2.fentryDate desc" Dim conn As New ADODB.Connection conn.connectionString = dataBaseConn.getExistConnectionString conn.Open Dim tolWeight As Double tolWeight = 0 Dim rs As ADODB.Recordset Set rs = conn.Execute(sql) If Not (rs.BOF And rs.EOF) Then rs.MoveFirst Do While Not rs.EOF If rs.Fields("famount") - rs.Fields("fbackAmount") >= amount Then tolWeight = tolWeight + rs.Fields("fweight") * amount Exit Do Else tolWeight = tolWeight + rs.Fields("fweight") * (rs.Fields("famount") - rs.Fields("fbackAmount")) amount = amount - (rs.Fields("famount") - rs.Fields("fbackAmount")) rs.MoveNext End If Loop End If Set rs = Nothing conn.Close getBackWeight = tolWeightEnd Function

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积