狐爸,下面是我代码和结构,请帮我诊断诊断
项目事件
计划管理
表事件
表A_DrawCell
If e.col.name = "到期时间" Then
If e.text >"" Then
Dim dt As Date = e.Text
Dim ts As Integer = (Date.today - dt).totalDays
If ts > 7 Then
e.Style= "二周"
Else
e.Style= "一周"
End If
End If
ElseIf e.col.name = "逻辑" Then
If e.Row("逻辑") = "通过" Then
e.Style= "样式3"
Else
e.Style= "样式4"
End If
End If
表C_DrawCell
If e.col.name = "完成时间" Then
If e.text >"" Then
Dim dt As Date = e.Text
Dim ts As Integer = (Date.today - dt).totalDays
If ts > 7 Then
e.Style= "没过"
Else
e.Style= "通过"
End If
End If
ElseIf e.col.name = "催文一次" Then
If e.Row("催文一次")= "催1" Then
e.Style= "没过"
Else
e.Style= "通过"
End If
End If
窗口表事件
窗口与控件事件
自定义函数
全局代码
菜单事件
表A
作者 ----> 字符型(16)
论文要求 ----> 字符型(536870910)
到期时间 ----> 日期型
总款 ----> 整数
定金 ----> 整数
余款 ----> 字符型(16)
优先级 ----> 字符型(16)
完成状态 ----> 字符型(16)
修改 ----> 字符型(17)
子任务 ----> 字符型(16)
表B
姓名(客户_姓名) ----> 字符型(16)
性别(客户_性别) ----> 字符型(8)
出生年(客户_出生年) ----> 日期型
医院与科室(客户_医院与科室) ----> 字符型(150)
研究方向(客户_研究方向) ----> 字符型(150)
职称与学历(客户_职称与学历) ----> 字符型(150)
快递地址(客户_快递地址) ----> 字符型(150)
QQ与EMail(客户_QQ与EMail) ----> 字符型(150)
电话和手机(客户_电话和手机) ----> 整数
手机和电话(写手_手机和电话) ----> 整数
写手(写手_姓名) ----> 字符型(50)
QQ和邮箱(写手_QQ和邮箱) ----> 字符型(16)
表C
接单时间() ----> 日期型
总价() ----> 字符型(16)
一次款() ----> 字符型(16)
催文一次() ----> 逻辑型
催文二次() ----> 逻辑型
粗稿已好() ----> 逻辑型
完成时间() ----> 日期型
定稿() ----> 逻辑型
文章上传() ----> 字符型(50)
姓名() ----> 字符型(16)
录用否() ----> 逻辑型
<!--EndFragment-->
<!--EndFragment-->