Create Cursor 表1 (姓名 C(8),数量 N(4),金额 N(12,2))
Insert Into 表1 Values ('张三',1,25.00)
Insert Into 表1 Values ('李四',3,50.00)
Insert Into 表1 Values ('王五',2,45.00)
Create Cursor 表2 (序号 C(2),单号 C(4),票号 C(4))
Insert Into 表2 Values ('1','1752','2053')
Insert Into 表2 Values ('2','1753','2054')
Insert Into 表2 Values ('3','1754','2055')
Create Cursor 表3 (姓名 C(8),数量 N(4),金额 N(12,2),序号 C(2),单号 C(4),票号 C(4))
For lnCnt=1 To Reccount('表1')
Select 表1
Go lnCnt
Store 姓名 To lcX1
Store 数量 To lnX2
Store 金额 To lnX3
Select 表2
Go lnCnt
Store 序号 To lcX4
Store 单号 To lcX5
Store 票号 To lcX6
Insert Into 表3 Values(lcX1,lnX2,lnX3,lCx4,lcX5,lcX6)
EndFor
Select * From 表3
Return