我的代码应该转移到一个新行并将新客户添加到数据库中,显示错误

时间:2016-11-11 10:22:52

标签: vba excel-vba excel

class Command(BaseCommand):
# Show this when the user types help
    help = "My test command"

    # A command must define handle()
    def handle(self, *args, **options):
        Job_set = Job.objects.all().filter(serial_no = 66666)
        self.stdout.write(Job_set, ending='')

        def __str__(self):
            return self.SLA

1 个答案:

答案 0 :(得分:1)

有许多方法可以改进您的代码。我已经重写了以下功能并避免使用.Select.Activate,因为不建议您使用这些功能。

Private Sub cmdSave_Click()

Dim CustomerNumber As String, FullName As String, ContactNumber As Long, CompanyName As String
Dim wsForm As Worksheet: Set wsForm = ThisWorkbook.Worksheets("CustForm")
Dim wsList As Worksheet: Set wsList = ThisWorkbook.Worksheets("CustomerList")
Dim firstEmptyRow As Long

With wsList
    firstEmptyRow = wsList.Cells(wsList.Rows.Count, 1).End(xlUp).Row + 1
    .Range("A" & firstEmptyRow) = wsForm.Range("D4")
    .Range("B" & firstEmptyRow) = wsForm.Range("D5")
    .Range("C" & firstEmptyRow) = wsForm.Range("D7")
    .Range("D" & firstEmptyRow) = wsForm.Range("D6")
End With

Worksheets("OrderInvoice").Range("D4:J7").ClearContents
End Sub

此代码应与您原始功能中的代码完全相同,但正如您所看到的那样,它更短,更整洁,更整洁。如果您不了解上述代码的任何方面,请告诉我,如果您需要,我会解释它。