clientdataset 查找数据 哈哈

//if not ClientDataSet1.Locate('开奖期数',trim(edit91.Text),[]) then showmessage('开奖期数 不存在 请重新填写一个 开奖期数');
if ClientDataSet1.Locate('开奖期数',trim(edit91.Text),[]) then
begin
s:= ClientDataSet1.FieldValues['开奖数据'];
dd1:=copy(s,1,1);
dd2:=copy(s,2,1);
dd3:=copy(s,3,1);
dd4:=copy(s,4,1);
dd5:=copy(s,5,1);
if self.CheckBox6.Checked then sss1:= self.ComboBox1.Items.ValueFromIndex[strtoint(dd1)] else sss1:='0123456789';
if self.CheckBox7.Checked then sss2:= self.ComboBox2.Items.ValueFromIndex[strtoint(dd2)] else sss2:='0123456789';
if self.CheckBox8.Checked then sss3:= self.ComboBox3.Items.ValueFromIndex[strtoint(dd3)] else sss3:='0123456789';
if self.CheckBox9.Checked then sss4:= self.ComboBox4.Items.ValueFromIndex[strtoint(dd4)] else sss4:='0123456789';
if self.CheckBox10.Checked then sss5:= self.ComboBox5.Items.ValueFromIndex[strtoint(dd5)] else sss5:='0123456789';