求救!VB+SQL翻译代码!谢谢高手们

来源：百度知道 编辑：UC知道 时间：2024/06/07 08:45:43
(有点乱!我都是不知道意思的才标出来 请高手帮忙翻译下!还有一点其他问题!请加QQ 54343744 小弟在此感激!!!)

rs.Open strSql, conn, adOpenForwardOnly, adLockReadOnly
MSFlexGrid1.Rows = rs_sum.RecordCount + 2
MSFlexGrid1.Cols = 3
MSFlexGrid1.MergeCells = flexMergeRestrictRows
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
MSFlexGrid1.Col = 0
Combo2.Visible = False
Text5.Visible = True
nextposition MSFlexGrid1.Row, MSFlexGrid1.Col
rs_save.AddNew
rs_custom.CursorLocation = adUseClient
rs_custom.Open sql, conn, adOpenKeyset, adLockPessimistic
If Not rs_checkname.EOF Then
rs_checkname.MoveFirst
loaderror:
MsgBox Err.Description
setheaderror:
MsgBox Err.Description
Text5.Left = MSFlexGrid1.Left + MSFlexGrid1.ColPos(c)
Text5.Top = MSFlexGrid1.Top + MSFlexGrid1.RowPos(r)
nextposition MSFlexGrid1.Row, MSFlexGrid1.Col
price = CDbl(MSFlexGrid1.Text)
MSFlexGrid1.Col = 2
coun = CInt(MSFlexGrid1.Text)

rs.Open strSql, conn, adOpenForwardOnly,
（STRSQL应该是条SQL语句，但你这上面没有显示，这句应该是打开一个数据库）
adLockReadOnly
MSFlexGrid1.Rows = rs_sum.RecordCount + 2
MSFlexGrid1.Cols = 3
MSFlexGrid1.MergeCells = flexMergeRestrictRows
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
MSFlexGrid1.Col = 0
Combo2.Visible = False
Text5.Visible = True
nextposition MSFlexGrid1.Row, MSFlexGrid1.Col
(这上面是对MSFLEXGRID1控件进行初始化设置，4列行数和打开的数据库一样并加2行combo2显示，TEXT5隐藏）
rs_save.AddNew
rs_custom.CursorLocation = adUseClient
rs_custom.Open sql, conn, adOpenKeyset, adLockPessimistic
If Not rs_checkname.EOF Then
rs_checkname.MoveFirst
loaderror:
MsgBox Err.Description
setheaderror:
MsgBox Err.Description
Text5.Left = MSFlexGrid1.Left + MSFlexGrid1.ColPos(c)
Text5.Top = MSFlexGrid1.Top + MSFlexGrid1.RowPos(r)
nextposition MSFlexGrid1.Row, MSFlexGrid1.Col
price = CDbl(MSFlexGrid1.Text)
MSFlexGrid1.Co