主题：帮我看看这个代码错在哪里，谢谢

 尝试直接赋值

http://www.foxtable.com/webhelp/scr/2436.htm

Tables("表a").Current("第一列") = format(d3,"n")

你表里面有没有数据啊？

Tables("工资报表").Current

没收到，你自己就调试一下 http://www.foxtable.com/webhelp/scr/1485.htm

1、密码

2、数据库

1、非法操作怎么出问题？我测试没问题

2、你textChanged事件的代码，写到valueChanged事件去即可。

currentChanged事件，原本代码去掉，改成下面的

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
If Forms("工资修改").Opened Then
    Dim lbl2 As WinForm.Label
    lbl2 = e.Form.Controls("选中行")
    lbl2.Text = " 现在编辑的是员工"&   (Tables("工资报表").Current("所属年份"))   & "年 " &   (Tables("工资报表").Current("所属月份"))   &" 月,姓名为: " &   (Tables("工资报表").Current("员工姓名"))   &   " 的员工工资"
End If

Dim idx As Integer =  Tables("员工信息").FindRow("[_Identify] = " & e.Table.Current("序号"))
If idx > - 1 Then '如果找到符合条件的行
    Tables("员工信息").Position = idx '则选择该行
End If

 你textChanged事件的代码，写到valueChanged事件去。