窗口有个结账按钮，设置的是点击按钮后自动重置会员信息表的会员卡号列，请问这样写不对么？为什么一直自动重置呢··？If Tables("结账_table1").Current("会员卡号") IsNot Nothing Then
Dim cz As DataRow
cz = DataTables("总表_会员信息").Find("","[_Identify]")
If cz IsNot Nothing Then
DataTables("总表_会员信息").DataCols("会员卡号").RaiseDataColChanged(cz)
'---------------------------------------------------------------------------------'
DataTables("总表_手牌消费").Save()
DataTables("总表_会员信息").Save
End If
End If
加好友 
发短信
Post By：2018/1/7 3:39:00 [显示全部帖子]
