[求助]会计科目自动定义问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]会计科目自动定义问题

共有3655人关注过本帖树形打印复制链接主题：[求助]会计科目自动定义问题

blsu33

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

[求助]会计科目自动定义问题 发帖心情

Post By：2015/2/5 10:41:00 [只看该作者]

老师，

1、科目类别档案已经定义好了 1 资产 2负债 3所有者权益 ...

2、在会计科目档案中有一列“科目类别”需要自动判定 1开头的为资产 2开头为负债

会计科目档案的datacol changing代码怎么写呢？

Dim rts As new List(of String)

rts = DataTables("科目类别").GetValues("编码名称","","编码规则 ")

If e.DataCol.Name = "科目类别" Then

Dim dc As DataCol

dc("科目类别") = SubString(dc("编码规则"),1,1)

if........

End If

还是

Dim lbbm As String = DataTables("科目类别").GetComboListString("编码规则")

If e.DataCol.Name = "科目类别" Then

Dim dr As DataRow

dr("科目类别") = SubString(DataTables("会计科目").dr("编码规则"),1,1)

If .......

End If

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/2/5 10:49:00 [只看该作者]

没看懂

1开头自动为科目类别赋值资产?

blsu33

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2015/2/5 11:03:00 [只看该作者]

举例

存在两个表

1、会计科目档案里 1002 代表银行存款科目表中还有一列科目类别需要自动根据 1001 的第一位1 去另外一个档案 “科目类别” 中去找 1 代表什么

在科目类别档案中事先定义了 1 资产 2负债 ....

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/2/5 11:41:00 [只看该作者]

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

[此贴子已经被作者于2015-2-5 11:42:20编辑过]

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/2/5 11:43:00 [只看该作者]

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

blsu33

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2015/2/5 16:03:00 [只看该作者]

老师，

麻烦您给改改啊，完全迷糊了

Select Case e.DataCol.Name

Case "科目类别"

Dim dc As DataTables("会计科目").DataCols

Dim dr As DataTables("会计科目").DataRows

dc("科目类别")=SubString(dc("编码规则"),1,1)

dr = DataTables("科目类别").Find("编码规则= '" & SubString(dr3("编码规则"),1,1) & "'")

If dr Is Nothing Then

MessageBox.Show("不存在相应类别,请添加类别!")

e.Cancel = True

Else

End If

End Select

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/2/5 16:08:00 [只看该作者]

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

        End If
End Select