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

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

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

有点甜老师，

麻烦您了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:科目类别.foxdb

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

谢谢您，有点甜老师，我干会计干了10多年了，大学学过FOXPRO,但是底子差，让您费心了。

继续上这个破班还是辞职专门去做软件，面对自己编程底子薄我心里没底；

帮助看了又看，几遍了，代码差一点也不行，心理还是没底；

下班回家还要看两个孩子都快10点了，软件理想是否还要继续，心理没底；

天天熬到半夜12点，还是没搞懂那几句代码，心理没底；

但是，有点甜老师您在，我心里有底！

希望你看到我，跟我联系，跟您一样的，财务干了10几年，易表用了10几年，去年发现狐表，因工作太忙也没空学，也是两个孩子，晚上抽空学一点，进度很慢，同样的跟你有一样想法，想转行做软件，想跟你交朋友，一起学习互相促进，请加我QQ1954909850