Foxtable(狐表)用户栏目专家坐堂 → 窗口显示错误


  共有2396人关注过本帖树形打印复制链接

主题:窗口显示错误

美女呀,离线,留言给我吧!
lfz123
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:525 积分:4550 威望:0 精华:0 注册:2018/3/24 18:04:00
窗口显示错误  发帖心情 Post By:2019/2/11 14:51:00 [只看该作者]

甜老师请教:我写了这样一段代码出现如图一的显示错误,重新打开显示又是正常的如图二,结果正确,只是影响显示结果

图片点击可在新窗口打开查看此主题相关图片如下:错误显示.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:正常显示.png
图片点击可在新窗口打开查看
代码如下:
If e.sender.Value = "02 结转未交增值税" Then
        Dim pr As Row = Tables("凭证").Current
        Dim dr As DataRow = DataTables("税金统计").find("年份= '"& pr("年份") & "'and 月份= '"& pr("月份") & "'  ")
        If dr IsNot Nothing Then
            t.rows(0)("借方金额") = dr("销项_税额") - dr("进项_税额")
            t.rows(1)("贷方金额") = dr("销项_税额") - dr("进项_税额")
        End If
End If



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/11 14:57:00 [只看该作者]

1、请确定是执行哪段代码后出现的错误;

 

2、贴出完整的影响的代码。


 回到顶部
美女呀,离线,留言给我吧!
lfz123
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:525 积分:4550 威望:0 精华:0 注册:2018/3/24 18:04:00
  发帖心情 Post By:2019/2/11 15:12:00 [只看该作者]

如果没有黄色代码显示是正常的喔!我只不过是调用了其他表的金额自动填写上去了
Dim str1 As String = e.sender.Value
Dim str  As String = str1.SubString(0,2)
Dim drs As List (of DataRow) = DataTables("常用凭证").Select("编号 = '"& str & "'")
For y As Integer = 0 To drs.Count - 1
    Dim t As Table = Tables("凭证.凭证明细")
    Dim nma() As String = {"摘要","科目代码","借方金额","贷方金额","现金流科目"} 'A-常用凭证 表数据来源列
    Dim nmb() As String = {"摘要","科目代码","借方金额","贷方金额","现金流科目"} 'B- 凭证.凭证明细 表数据接收列
    Dim r As Row = t.AddNew
    For i As Integer = 0 To nma.Length - 1
        r(nmb(i)) = drs(y)(nma(i))
    Next
    If e.sender.Value = "01 缴纳税金" Then
        Dim dr1 As DataRow = DataTables("会计科目").find("科目代码 = '"& r("科目代码") & "' ")
        If r("科目代码") <> "1002001" And dr1("期末余额") > 0 Then
            r("借方金额") = dr1("期末余额")
        Else
            r("贷方金额") = t.Compute("sum(借方金额)")
        End If
    ElseIf e.sender.Value = "02 结转未交增值税" Then
        Dim pr As Row = Tables("凭证").Current
        Dim dr As DataRow = DataTables("税金统计").find("年份= '"& pr("年份") & "'and 月份= '"& pr("月份") & "'  ")
        If dr IsNot Nothing Then
            t.rows(0)("借方金额") = dr("销项_税额") - dr("进项_税额")
            t.rows(1)("贷方金额") = dr("销项_税额") - dr("进项_税额")
        End If
    End If
Next
[此贴子已经被作者于2019/2/11 15:13:44编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/11 18:43:00 [只看该作者]

试试这样

 

    ElseIf e.sender.Value = "02 结转未交增值税" Then

systemready = false
        Dim pr As Row = Tables("凭证").Current
        Dim dr As DataRow = DataTables("税金统计").find("年份= '"& pr("年份") & "'and 月份= '"& pr("月份") & "'  ")
        If dr IsNot Nothing Then
            t.rows(0)("借方金额") = dr("销项_税额") - dr("进项_税额")
            t.rows(1)("贷方金额") = dr("销项_税额") - dr("进项_税额")
        End If

systemready = true


 回到顶部