闪电小翔 闪电小翔
关注数: 25 粉丝数: 25 发帖数: 2,435 关注贴吧数: 11
总是出现这个问题 Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If Trim(Adodc1.Recordset.Fields(6)) = "出租" Then Cmd_Modi.Enabled = True Cmd_Del.Enabled = True Cmd_Check.Enabled = True Cmd_Cont.Enabled = False Cmd_ContCheck.Enabled = False Cmd_Print.Enabled = False ElseIf Trim(Adodc1.Recordset.Fields(6)) = "出租审核" Then Cmd_Modi.Enabled = False Cmd_Del.Enabled = False Cmd_Check.Enabled = False Cmd_Cont.Enabled = True Cmd_ContCheck.Enabled = False Cmd_Print.Enabled = True ElseIf Trim(Adodc1.Recordset.Fields(6)) = "续租" Then Cmd_Modi.Enabled = False Cmd_Del.Enabled = False Cmd_Check.Enabled = False Cmd_Cont.Enabled = True Cmd_ContCheck.Enabled = True Cmd_Print.Enabled = False ElseIf Trim(Adodc1.Recordset.Fields(6)) = "续租审核" Then Cmd_Modi.Enabled = False Cmd_Del.Enabled = False Cmd_Check.Enabled = False Cmd_Cont.Enabled = False Cmd_ContCheck.Enabled = False Cmd_Print.Enabled = True ElseIf Trim(Adodc1.Recordset.Fields(6)) = "归还" Then Cmd_Modi.Enabled = False Cmd_Del.Enabled = False Cmd_Check.Enabled = False Cmd_Cont.Enabled = False Cmd_ContCheck.Enabled = False Cmd_Print.Enabled = False ElseIf Trim(Adodc1.Recordset.Fields(6)) = "归还审核" Then Cmd_Modi.Enabled = False Cmd_Del.Enabled = False Cmd_Check.Enabled = False Cmd_Cont.Enabled = False Cmd_ContCheck.Enabled = False Cmd_Return.Enabled = False Cmd_Print.Enabled = True End If End Sub Private Sub Form_Load() GridRefresh cob_Status.AddItem "出租", 0 cob_Status.AddItem "出租审核", 1 cob_Status.AddItem "续租", 2 cob_Status.AddItem "续租审核", 3 cob_Status.AddItem "归还", 4 cob_Status.AddItem "归还审核", 5 cob_Status.AddItem "全部", 6 Cmd_Modi.Enabled = False Cmd_Del.Enabled = False Cmd_Check.Enabled = False Cmd_Cont.Enabled = False Cmd_ContCheck.Enabled = False Cmd_Print.Enabled = False End Sub Private Sub GridRefresh() If Trim(cob_Status.Text) = "" Or Trim(cob_Status.Text) = "全部" Then SchCnd = "" Else SchCnd = " AND Status='" + Trim(cob_Status.Text) + "'" End If Adodc1.ConnectionString = Conn Adodc1.RecordSource = "SELECT ContractNo AS 合同编号,CarNo AS 车牌号," _ + "CustId AS 客户号,LeaseTime AS 租赁时间,LeaseMode AS 租赁模式, " _ + "ReturnTime AS 归还时间,Status AS 状态," _ + "IIF([Status]='日',Price1*WorkDays+Price2*WeekEndCount,Price1*WorkDays) AS 租车费用," _ + "OtherCost AS 其他费用,Payment AS 实际支付,Deposit AS 押金,Total AS 总额 " _ + " FROM Lease WHERE Status NOT IN ('归还','结算审核') " + SchCnd _ + " ORDER BY ReturnTime DESC,LeaseTime DESC" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Columns(0).Width = 1000 DataGrid1.Columns(1).Width = 1000 DataGrid1.Columns(2).Width = 1000 DataGrid1.Columns(3).Width = 1800 DataGrid1.Columns(4).Width = 1000 DataGrid1.Columns(5).Width = 1800 DataGrid1.Columns(6).Width = 1000 DataGrid1.Columns(7).Width = 1000 DataGrid1.Columns(8).Width = 1000 DataGrid1.Columns(9).Width = 1000 DataGrid1.Columns(10).Width = 1000 DataGrid1.Columns(11).Width = 1000 End Sub 这是代码
1 下一页