【搞定】DataGrid运行时不能正常显示[问题]

新来小职员 · 发表于 2007-5-10 16:46:26

图二

atiger · 发表于 2007-5-10 16:52:07

不运行？怎么理解，不运行这段代码？还是没有效果？

新来小职员 · 发表于 2007-5-10 17:13:03

代码应该已经执行了,因为第一句弹出"执行"对话框的语句已经执行了

新来小职员 · 发表于 2007-5-10 17:14:05

应该是执行了但是没有效果

新来小职员 · 发表于 2007-5-10 17:48:29

atiger · 发表于 2007-5-11 08:58:33

把你的代码贴出来看看

新来小职员 · 发表于 2007-5-11 09:02:09

我写的代码很少就十一楼那几句

atiger · 发表于 2007-5-11 09:06:58

看不出来了，那你把资源上传上来，我恢复环境跟踪一下，

新来小职员 · 发表于 2007-5-11 09:14:07

资源是指...???

新来小职员 · 发表于 2007-5-11 09:47:07

unit WTSHD;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data;

type
  TWTSHD = class(TForm)
FuncBroker: TFuncBroker;
InfoBrokerDXYW: TInfoBroker;
ControlBar: TControlBar;
DataNavigator: TDataNavigator;
DocViewBar: TDocViewBar;
Panel: TPanel;
DocViewDXYW_DXYWXX: TDocView;
DataGrid1: TDataGrid;
DataSource1: TDataSource;
DataSetWTSHSJJ: TSQLDataSet;
ComboBox1: TComboBox;
DataSetBroker1: TDataSetBroker;
DataSetBroker2: TDataSetBroker;
Label1: TLabel;
Label2: TLabel;
procedure ComboBox1Change(Sender: TObject);
procedure BizFormShow(Sender: TObject);
//procedure TYWCSZ1.ParamYWCS1GetValue(Sender: TObject; var Value: Variant);
  private
{private declarations}
  public
{public declarations}
  end;

implementation

procedure TWTSHD.ComboBox1Change(Sender: TObject);
begin
   if ComboBox1.Text = '税票' then
   begin
      DataGrid1.Columns[1].Visible := False;
   end;
end;
procedure TWTSHD.BizFormShow(Sender: TObject);
begin
   Dialogs.ShowMessage('执行');
   DataSetBroker1.DataSet.Open;
   DataSetBroker2.DataSet.Open;
   Dialogs.ShowMessage('执行完了');
end;

end.

		自动登录	找回密码
密码			立即注册