主题：[求助]会计科目自动定义问题

  直接取当前行的编号列的第一位，然后去查类别档案表，得到值后赋值进去即可啊。

http://www.foxtable.com/help/topics/0396.htm

 一旦进步也没有，不行就上传例子

Select Case e.DataCol.Name
    Case "编码规则"
        If e.NewValue <> Nothing AndAlso e.NewValue.Length >= 2 Then
            Dim dr As DataRow = DataTables("科目类别").Find("编码规则= '" & e.NewValue.SubString(0,2) & "'")
            If dr Is Nothing Then
                MessageBox.Show("不存在相应类别,请添加类别!")
                e.Cancel = True
            Else
                e.DataRow("科目类别")=dr("编码名称")
            End If
        End If
End Select

DataColChanged事件

If e.DataCol.Name = "编码规则" Then
    If e.NewValue <> Nothing AndAlso e.NewValue.Length >= 1 Then
        Dim dr As DataRow = DataTables("科目类别").Find("编码规则= '" & e.NewValue.SubString(0,1) & "'")
        If dr Is Nothing Then
            MessageBox.Show("不存在相应类别,请添加类别!")
        Else
            e.DataRow("科目类别")=dr("编码名称")
        End If
    End If
End If