以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [急]系统崩溃  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85692)
--  作者：liu1992
--  发布时间：2016/6/1 9:19:00
--  [急]系统崩溃
                    这个是我的项目，今天本来都好好的，之前也有改过代码，但是没有报错。但是过了很久在测试录入数据的时候就突然间闪退，再打开还是闪退。按ctrl进去之后，重置了每一列，还是没有报错。
您能不能帮忙看看问题，谢谢了！！！
密码：avic123
 
项目已经发您邮箱了！
[此贴子已经被作者于2016/6/1 9:22:03编辑过]
--  作者：大红袍
--  发布时间：2016/6/1 9:23:00
--  

 请上传数据库。

 

 你看你执行下什么的时候闪退啊，看看是不是死循环啊 http://www.foxtable.com/help/topics/1522.htm

 
--  作者：liu1992
--  发布时间：2016/6/1 9:39:00
--  

数据已上传，请老师帮我看下！
[此贴子已经被作者于2016/6/1 9:51:15编辑过]
--  作者：大红袍
--  发布时间：2016/6/1 9:46:00
--  
还有一个日志文件也要上传啊FCZL.ldf
--  作者：liu1992
--  发布时间：2016/6/1 9:51:00
--  
以下是引用大红袍在2016/6/1 9:46:00的发言：
还有一个日志文件也要上传啊FCZL.ldf

不好意思，刚刚忘了一起压缩进来，麻烦老师了！


[此贴子已经被作者于2016/6/1 10:04:03编辑过]
--  作者：大红袍
--  发布时间：2016/6/1 9:59:00
--  

这句代码，在 房产信息 表datacolchanged事件，删除掉

 

DataTables("房产信息").DataCols("具体位置").RaiseDataColChanged()
--  作者：liu1992
--  发布时间：2016/6/1 10:05:00
--  
谢谢大红袍老师，本来是想重置“具体位置”的就给写进来，没想到。。。
--  作者：liu1992
--  发布时间：2016/6/1 10:16:00
--  

大红袍老师，在“合同管理”表中写到，判断当前月和收费方式之后，在“本月开票”中对应生成本月应该开票的出租单位。我现在想再加一个判断条件，是合同状态为“生效”的情况下才生成，但是我加了一个if判断语句还是不能生效啊！

原来的代码如下：

\'判断本月的月份,计算房租
Dim dt1 As DataTable = DataTables("合同管理")
Dim dt2 As DataTable = DataTables("本期开票")

Dim arys() As String = {"月收,两月收,季收", "月收", "月收,两月收","月收,季收","月收,两月收,年收","月收","月收,两月收,季收","月收","月收,两月收","月收,季收","月收,两月收","月收"}
Dim filter1  As String = "收租方式 in (\'" & arys(Date.Today.Month-1).replace(",", "\',\'") & "\')"

Dim 收租月 As String = Date.Today.Month & "月"
For Each dr As DataRow In dt1.Select(filter1)
    Dim ndr As DataRow = dt2.Find("合同号 = \'" & dr("合同号") & "\' and 收租月 = \'" & 收租月 & "\'")
    If ndr Is Nothing Then ndr = dt2.AddNew
    ndr("合同号") = dr("合同号")
    ndr("收租月") = 收租月
    ndr("收款方式") = dr("收租方式")
    ndr("具体位置") = dr("具体位置")
    ndr("承租单位") = dr("承租单位")
Next
--  作者：大红袍
--  发布时间：2016/6/1 10:19:00
--  
For Each dr As DataRow In dt1.Select(filter1 & " and 合同状态 = \'生效\'")