看了很久，换了多种方法，还是找不到原因，麻烦看看
Dim tjrs As Short = dryqm("推荐人数")'定义原有推荐人数
msgbox("原有推荐人数列:" & dryqm("推荐人数")) ’这里提示：1
tjrs = tjrs + 1
msgbox("推荐人数计算后:" & tjrs)
dryqm("推荐人数") = tjrs '写入邀请人的邀请次数(注意:与刚添加的行不同)
msgbox("推荐人数保存:" & dryqm("推荐人数"))
msgbox("内部:" & 4)
If dryqm("推荐人数") = 2 Then
msgbox("内部11:")
dryqm("会员等级") = "中级会员" '更改邀请人的会员等级
msgbox("内部22:")
Dim shiycs0 As String = dryqm("免费邀ta次数_今日使用")
Dim shiycs As Integer
Integer.TryParse(shiycs0,shiycs)
msgbox("内部33:")
dryqm("免费邀ta次数_今日剩余") = 9 - shiycs '更改邀请人,免费邀请次数
msgbox("内部44:")
End If
msgbox执行时，显示的数字也是对的，但是“推荐人数”列（段整数列，另外2列是字符型），没有写入
其他代码均可正常执行，没有任何提示
全部代码：
[此贴子已经被作者于2017/4/22 22:20:34编辑过]
加好友 
发短信
Post By：2017/4/22 19:17:00 [显示全部帖子]
