主题：点补货管理就自动关程序。

点补货管理就自动关程序。
应该是qt表的事件代码有问题，但是我实在看不出来

 

麻烦高手们分析一下啊

此主题相关图片如下：捕获.png

1、数据库发上来。

 

2、我直接按住ctrl打开后测试没问题。

trj那个是吧？ 跳过就行，忘记说了，

 我打开后，切换没问题啊

 

 

此主题相关图片如下：qq截图20151103202358.jpg

en ?

我这边怎么直接死掉，程序直接关掉

也没有什么提示

此主题相关图片如下：捕获1.png

难道是菜单的问题么？

 

最近老是提示这个，我一个人在开发，没有有其他人了啊。

不正常退出，是会这样提示的，你勾选确定即可。

 

如何操作，能够出错？打开项目选择就退出？为什么我测试没事？

是啊，我也奇怪啊，刚刚又实验了一下，还是死

 

源程序自动退出，发布的程序没事，你那边也没事的话，可能就是我系统的问题了，我在重启几次看看好了，非常感谢！！

还有事情， 就是新版程序下载不了。不知道有没有其他的人反映

qt表datacolchanged事件，加上列名判断

 

If e.DataCol.name="ppp" Then 'AndAlso Tables("qt").Current IsNot Nothing
    Dim d As Date = e.DataRow("time")
    Dim bh As String = Format(D,"MMddhhmm")
    Dim bh1 As String = Format(D,"yyMMdd")
    e.DataRow("cord1")=e.DataRow("name") & bh & e.DataRow("_Identify")
    e.DataRow("bh1")= bh1
    e.DataRow("bh")= bh
    e.DataRow("pic")="c:\pic\补货\" & bh1 & "\" & e.DataRow("cord1") & ".jpeg"
End If
If e.DataCol.name="bbb"
    If Tables("qt").Current.IsNull("bbb") Then
       
    Else
        e.DataRow("pic")="c:\pic\补货\" & e.DataRow("bbb").Replace("/","\")
    End If
End If

If e.DataCol.Name="shangcheng"
    Dim dr As DataRow = DataTables("商城").Find("[lable] = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        e.DataRow("fuzhu") = dr("fuzhu")
    End If
End If

If e.DataCol.Name="name"
    Dim dr As DataRow = DataTables("user").Find("[name] = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        '   e.DataRow("kehu") = dr("username")
        e.DataRow("name") = dr("name")
        e.DataRow("name1") = dr("name1")
        e.DataRow("name2") = dr("name2")
       
        Dim bh As String = Format(e.DataRow("time"),"yyyyMMddhhmmss")  '取得rukucord的8位前缀
        e.DataRow("cord") = e.DataRow("name") & bh & e.DataRow("_Identify") & "BUY"
       
    Else
        If dr Is Nothing Then
            messagebox.show("没有此客户信息,请添加")
            forms("用户").open
            ' e.Cancel=True
        End If
    End If
End If
If e.DataCol.name="shuliang"
    If e.DataRow.IsNull("shuliang") Then
        '       e.DataRow("xiaoji") = Nothing
    Else
        e.DataRow("xiaoji") = e.DataRow("shuliang") * e.DataRow("price")
    End If
End If