Question

VB+ACCESS，MSHFlexGrid表格数据修改后保存到数据库！

录入数据是用一文本框和MSHFlexGrid组合的，增加数据没问题，现在是根据单号读出数据到窗体，然后修改后批量写入数据库！求解答，谢谢！附代码：
For i = 1 To .Rows - 1
sqltext = "update ckc set 货号= '" & .TextMatrix(i, 2) & "'where id1='" & .TextMatrix(i, 1) & "'"
Set rs = ExecuteSQL(sqltext, MsgString)
Next i
MsgBox "数据保存完成", vbInformation, "提示"

Answer 1

 

For i = 1 To .Rows - 1

dim s as integer,s1 as integer

s=.TextMatrix(i, 2)

s1=s=.TextMatrix(i, 2)

sqltext = "update ckc set 货号= " & s & " where id1= " & s1 & ""

Set rs = ExecuteSQL(sqltext, MsgString)

Next i

'建议更新完成后在刷新下mshflex表

rs.open "select * from ckc ",1,3

set .datasource=rs '重新加载mshflex表

MsgBox "数据保存完成", vbInformation, "提示

追问

谢谢您的解答,但是还是没法修改!如果您这个方案可行的话,因为有多列,不知要修改哪一列,那就要定义多个S了,呵呵!总之谢谢您,如果真没法解决,就只能单条修改了!

追答

对MSHFLEX表格的应用我熟悉的很
还有一种办法，也是我现在用的
对MSHflex的表格直接修改，然后保存后就会更新到数据库
另一种方案我也在用，就是双击表格，然后表格内容自动添加到对应的text控件内
然后修改text控件的内容 保存后更新数据库

没关系，就算你没采纳我的答案也无所谓，相互学习嘛！

Answer 2

sqltext="update ckc set 货号='"& .textmatrix(i,2) & "' where id1=" & .textmatrix(i,1)

追问

谢谢!